home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’91 / Help for Hier / Hier.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-20  |  1.4 KB  |  83 lines  |  [TEXT/KAHL]
  1. /*
  2.  
  3. #include <values.h>
  4. #include <types.h>
  5. #include <quickdraw.h>
  6. #include <fonts.h>
  7. #include <events.h>
  8. #include <controls.h>
  9. #include <windows.h>
  10. #include <menus.h>
  11. #include <textedit.h>
  12. #include <dialogs.h>
  13. #include <desk.h>
  14. #include <scrap.h>
  15. #include <toolutils.h>
  16. #include <memory.h>
  17. #include <segload.h>
  18. #include <files.h>
  19. #include <osutils.h>
  20. #include <osevents.h>
  21. #include <diskinit.h>
  22. #include <packages.h>
  23. #include <traps.h>
  24.  
  25.  
  26. #include    <ctype.h>
  27. #include    <fcntl.h>
  28. #include    <string.h>
  29. #include    <stdio.h>
  30. #include    <ErrMgr.h>
  31. #include    <CursorCtl.h>
  32. #include    <Errors.h>
  33.  
  34. #include <Devices.h>
  35.  
  36. */
  37.  
  38.  
  39.  
  40. #define FALSE             (0)
  41. #define TRUE              (!FALSE)
  42.  
  43. #define PROC_ID           128
  44. #define ICON_ID           128
  45.  
  46. int main(void);
  47.  
  48. /*********************** Main *********/
  49.  
  50. int main(void)
  51. {
  52.     Handle    codeResH;
  53.     long    ignoreResult;
  54.  
  55.       Handle    procH;
  56.       
  57.       if ((procH = GetResource('PROC', PROC_ID)) != 0L)    {
  58.             HLock(procH);
  59.             CallPascal(ICON_ID+1, 0, *procH);
  60.             HUnlock(procH);
  61.         }
  62.  
  63.  
  64.     LoadResource(codeResH=GetResource('jpat',128));
  65.     DetachResource(codeResH);
  66.     MoveHHi(codeResH);
  67.     HLock(codeResH);
  68.     
  69.     (*((long **)codeResH))[3]=GetTrapAddress(0xA93d);
  70.  
  71.     SetTrapAddress((long)*codeResH,0xA93d);    /*  Menu Select */
  72.     Delay(20,&ignoreResult);
  73.       if ((procH = GetResource('PROC', PROC_ID)) != 0L)    {
  74.             HLock(procH);
  75.             CallPascal(ICON_ID, 0, *procH);
  76.             CallPascal(ICON_ID+2, -1, *procH);
  77.             HUnlock(procH);
  78.         }
  79. }
  80.  
  81.  
  82.  
  83.